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CLUB NOTES - FOR PRIVATE SALE - VZ USER GROUPS & PUBLICATIONS :- Page 3 


EDUCATIONAL - SPELLING TRAINER by Paul and Joe LEON Page 4 

The program is just a simple one. Words are held in DATA statements at end 
of listing. Any family member can read out words for student to spell. When 
changing words make sure you have 20, otherwise you'll have to reDIMension. 


IMPROVING VZ SOUND by Joe LEON :- — Page 5 
Fed up with the tinny sound from your VZ, then change it for one with 
improved sound and volume. Even a beginner should be able to do this project. 


ENHANCING FIND by Larry TAYLOR :- Pages 6-7 | 

This is the basic version of FIND routine which is a very useful utility to 
have around. It can be even better if it's available on power up. With Larry's 
help it now lives in my 2K ZERO POWER RAM at &000H-67FFH, Thanks Larry. 


BASIC BLOCK TRANSFER by Chris HOBROUGH :- Раце8-%9 

Last issue featured M/C version while this one 15 in basic. А simple 
demonstration program is included to show what could be achieved. I'm sure 
you'll be able to adapt it to your own needs. 


DISKLIST UPDATE by Joe LEON :- , Pages 10-11 

Ав I keep club's membership list-on DISKLIST I keep trying to improve it's 
operation. The two main improvements are to SAVE/LOAD toutines. You can now 
update existing file without using the ERAse function first. also file MERGING 
has been incorporated as well. 7 


8k BIB RAM PART III by Joe LEON :- Pages 12-13 

A pointer change routine has been added to M/WORDS program so words like 
TRON, TROFF, etc can be activated. Ideas on how to put routines іп 2K BIB RAM 
are presented as well. Don't forget, the main purpose of the BIB RAMS is for 
software developement. My thanks to Dave Mitchell and Robert Quinn and Larry 
Taylor for their help with above, | 


LPRINTER by Robert QUINN :- Pages 14-14 
Turn your PRINTER/PLOTTER into a typewriter printing UPPER/lower case, 
INVERSE, GRAPHICS and screen dumps as well. 


MEMBRANE KEYBOARD UPDATE by Joe LEON :- Page 16 

If some of your keys don't work too well then don't rush out and Duy a 
M/Keyboard before trying out Dick Smith's magic spray which just might do the 
trick and is much cheaper. 


BLOCK MOVE & COMPARE by Dave BOYCE :- | Pages 17-18 


Although the second block move routine presented, it's use would be better 
suited to programs like M/WORDS, EPROM FROGRAMMERS, etc. Chose one or both 
according to your applications. | i 


ALF - DRAWN by Matthew TAYLOR :- Page 18 | 

Matthew, our resident GRAPHICS expert shows of his skills. ‚ He also designed 
an exellent Graphics Editor which is simple to use and full of features. Both 
tape and disk users are catered for. | | 


FOR SALE - VZ SCREEN ED - W.P. PATCHZ.1 - EXT. DOS Vi.@ Pages 19-20 


BELIEVE IT OR NOT :- | 

A person new to computers received a VZZ00 for Christmas. The persons 
delight turned to dismay upon spotting the MADE IN HONG KONG label on the 
bottom. The person took it back to exchange for one made locally, the reason, 
person couldn’t read chinese, 


PS :- Names and places have been changed to protect the innocent. 


кок SALE — CLUB NOTES . А T = & 3 


I hope all our readers had a happy and safe festive season and a good start 
to 1988 and here's hoping it will stay that way. 


FOR PRIVATE SALE 1 :- 


1 OFF VZ 300 - 1 OFF VZ 200 DATASSETTE - 1 OFF VZ 200 JOYSTICKS. 
Includes leads and powerpacks. А11 used and in good order. 
Price as UNIT - $120.00 - Includes POSTAGE. 

Contact Brian GREEVE 37 NORWOOD ROAD  RIVERVALE 5105 

PERTH WESTERN AUSTRALIA. 


FOR PRIVATE SALE 2 :- 


1 OFF LIGHT (GRAPHICS) PEN — As new and still in original packing. $352.00 
Includes POSTAGE - Ring Dave BOYCE оп (08) 384 6574. 


CLUB DEMONSTRATION :- 

At the March club meeting Joe LEON will demonstrate the end result of his 
BIB RAMS articles by transfering information to EPROM and installing in his VZ 
500 for a working demonstration. 


VI USER GROUPS AND PUBLICATIONS. 


VZ USER MARK HARWOOD Р.О.ВОХ 154 DURAL N.S.W. 2158 


LE'VZ OOP J.C.E. D'ALTON 39 AGNES St. TOOWONG GLND. 4066 
VSOFTWAREZ - SOFTWARE/HARDWARE FOR SALE 


VZ DOWN UNDER SCOTT LE BRUN 59 BRENTWOOD DVE WANTIRNA 5152 
SOFTWARE/HARDWARE FOR SALE 


VZ-LINK - PETER J. HILL P.O.BOX 1972 С.Р.0. AUCKLAND N.Z. 
WAVZ - GRAEME BYWATER P.O. BOX 388, MORLEY W.A. 6062 
BRISBANE VZ USERS WORKSHOP - C/Q 63 TINGALPA ST. WYNUM WEST 4178 


HUNTER VALLEY VZ USERS’ GROUP - P.O. BOX 161 JESMOND N.S.W. 2299 
EDITOR-JOE LEON (049)51 2756 - SECRETARY-ROSS WOODS (049)71 2843 


SUBSCRIPTION ~ H.V.VZ.JOURNAL - 6 MONTHS $9.00 - 12 MONTHS $18.00 
New Zealand ~ 6 MONTHS $12.00 — 12 MONTHS #24, 00 


NEW VENUE — NEW DATES — МЕМ VENUE — NEW DATES - NEW VENUE 


MEETINGS - FIRST FRIDAY of MONTH at JESMOND NEIGHBOURHOOD CENTRE 
MORDUE PARADE - REAR STOCKLAND MALL (BIG W)  JESMOND 


NOTE :- When writing to any above or H.V.VZ. Users’ Group for information please 
enclose a 3.5.А.Е. оғ 2 Int. Reply Coupons. 


No MATERIAL in this Journal may be reproduced in part or whole without the 
consent of the Author who retains COPYRIGHT. 





SPELLING AID BY P. 8. J. LEON 
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? ХЖЖХЖЖЖХЖЖХХЖХЖ«Ж Ж KK KK KK KK KKK KK KK KK KKK KK KK KKK KK KKK Е ЖЖЖ KK KKK KK 
“ж TRAINING PROGRAM FOR LEARNING TO SPELL NEW WORDS Жж 
эж DESIGNED FOR PARENT PARTICIPATION -- BY P AND J LEON Ж 
* ЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖжЖжЖжжЖжЖжЖЖх*ЖжжжЖ*х*** 
30 : 

УЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖ 
эж THIS PROGRAM IS FAIRLY EASY TO USE AS IT'S MENU DRIVEN Ж 
>ж AFTER RUNNING PROGRAM SELECT NUMBER OF WORDS TO SPELL. x 
>x NEXT EITHER A PARENT, BROTHER, SISTER CAN READ OUT THE x 
»ж WORDS THE STUDENT WISHES TO LEARN HOW TO SPELL. THE VZ Ж 
"ж CHECKS THE SPELLING AUTOMATICALLY INFORMING STUDENT Ж 
'* WHETHER HE/SHE IS RIGHT/WRONG AND PERCENTAGE CORRECT. Ж 
ЭЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖжЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖжЖжЖЖжЖжЖжЖжЖжЖжЖжЖжЖж** 


> ЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖ 
'* LINES 800 TO 830 CONTAIN THE 20 WORDS STUDENT WANTS TO x 
'"* LEARN. JUST REPLACE WITH 20 NEW WORDS OF YOUR CHOICE. Ж 
KKK KKK KKK KKK KKK KKK KKK KKK KK KKK KKK KK KAKA KKK KK KAKA KK KK KKK 


* 


POKE30744,96:COLOR,0:DIM E$(29) :GOSUB150:GOSUB7@0 
FORI=1T0O20: READES(1):NEXT І:60Т0200 


С1,5: СОТОКТ: PRINT TAB(6) "5 MESE ии иы 1" 
PRINT" Sese eere 

PRINT" Мәмен! > «ae >” PRINT 

PRINT" PERCENTAGE CORRECT -»" 

PRINT" zzzzmmzzm————zzzImImIIIIzImImzIÉ!" 
PRINT@77, "@":PRINT@SS, "Q":PRINTQG 154, "0.00" : RETURN 


PRINTG226, "QUESTION # WAS":PRINT8418, "QUESTION +" 
FORI-1ITONW:PRINT8429,USING" ##¥" ; 1:50508609 
PRINTG482, "1 Шш 1" : 


Аз-"": РЕТНТЕЗ22,;: INPUT "Е ЖЕШИН I "; АЗ: ТЕАЗ-“ "THEN 300 
IFAS$-"Q"THENCLS: END 

C=0: FORJ=1T020: IFES(J) =АФТНЕМС= 1: NEXTJELSENEXTJ 

[FC= 1THENGOSUBSOQELSEGOSUB5 10 

МЕХТІ :С050В600 


PRINT@443, "Y "3 
PRINTG418, ; : INPUT" J ШИШЕНИН TS 
IF T$="Y"THENRUNELSEIFT$="Q"THENCLS :ENDELSE400 


PRINT@247, "ЕНЕ d": SOUND31, 1: R=R+1:GOTOS20 
PRINTG247 , "Н" : SOUND15, 4: W=W+1 | 
PRINT@76, USING "Ня"; R: PRINT@92, USING "##"3W 
PRINT@152, USING "HHH. ##"3R/1*100 

PRINT@237, USING" ##"31I:RETURN 


FOR 1-288Т03888ТЕРЗ2 | 
PRINT@J, " | "3 :КЕМ 32 SPACES 
NEXT: RETURN 


GOSUBGOO0 : PRINT@289, "Ji 
PRINTQ380, "5" | 
РКІМТӘЗ51, ; : INPUT" SELECT NUMBER OF WORDS "; МИ 
ТЕМЫ «5 ORNW >20 THEN7OOELSERETURN 





DATA ACCOMPLISHED, BEHAVIOUR, COMMONWEALTH, DAYLIGHT, ELEPHANT 
DATA FINANCIAL, GENERATION, HEADPHONES, IMITATE, JUSTIFIED 
DATA KNIFE, LENGTH, MASTERPIECE, NUISANCE, OCCUPATION 

DATA PHARAOH, QUIET, RECEIPT, SARCASM, WHISTLE 


IMPROVING WZ SOUND BY TOF LEON = 


IMPROVING VZ 200/300 SOUND QUALITY :- 


The reason for the tinny sound in the VZ is the PIEZO 
TRANSDUCER. It's located on the bottom of the case under the 
P.C.B., and because it's glued down it further reduces the sound 
output. This modification can be done by the beginner. 


Before starting the mod you'll have to purchase one of the 
two sound transducers or 2"% speaker described below and or a 
miniature pot. 


1) 5. 1са (2") 8 Ohm speaker.  TANDY Cat. No. 49-245 - $3.99 

2) PIEZO TRANSDUCER 1.- 30mm X 5mm - Available from D.Smith. 
3) PIEZO TRANSDUCER 2 - 30mm X 10mm - TANDY No. 273-073 - $2.99 
4) MINIATURE ROTARY POT (5K) - Available from D.SMITH - 31.20 


I tried all three and found the 30mm X 10mm P/TRANSDUCER the 
aost Satisfactory as far as sound output, size and price. Sound 
output between the 5. icm speaker and 30mm X 10mm P/TRANSDUCER was 


nearly identical. So size and price took priority. 


The P/TRANSDUCER element used in the VZ is the same as the 
two described previously. The one in the YZ is uncased, while 
the other two are cased. the larger the case the more sound 
output. And now to the mod. 


Turn your 92 upside down and remove all the screws holding 
the two haives of the case together and turn VZ right way up and 
back to front. Lift top of case and put towards the back. 


The screws holding the Р.С.В. in place will have to be 
removed next. Lift the P.C.B. out carefully and you shouid see 
the  P/TRANSDUCER element glued to bottom of case.  Unsolder or 
cut from the element the tuo leads going to it. 


If you desire a volume controi, now is the time to insert it 
in one of the leads as shown in circuit diagram. 11 can be 
mounted on bottom left lip of the case. Drill a hole to suit the 
Shaft and mount it upside down with the knob going under the lip. 

The volume control is linear in operation and at mimimum is like 
the volume from original VZ while at Maximum is fair bit iouder. 


Next solder the leads from your neu TRANSDUCER to the ends of. 
the unsoldered leads. If you have’nt a soldering iron then 


Simply twist the wires together. Make sure you insulate the 


joined wires from each other and the VZ by using sleeving or 
wrapping some electrical tape around the joints. 


The best piace to put the P/TRANSDUCER is at front left of 
case With the leads going under the P.C.B. Use а bit of tape on 
one side of  P/TRANSDUCER to keep it in place. All that's left 
now is to reasemble. I think you'il agree, it was’nt hard. 


PIEZO, TRANSDUCER 


2K -10K 
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TANDY CAT, NO. Ж CONNECT TO VZ 200/300 TRANSDUCER LEADS 
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ENHANCING FIND BY LARRY TAYLOR 


REM тФНИНИИНИНИИНИИНИИННИННИНИНИИНИНИНИНИННИНИНИНИИНИИННИНИНИНЯЯ 
REM # MODIFIED FIND UTILITY BY LARRY TAYLOR 1985 # 
КЕМ # ADAPTED FROM ARTICLE BY C. STAMBOULIDIS, PUBLISHED # 
КЕМ # IN PERSONAL COMPUTER GAMES IN APRIL, 1985. 8 
REM ЯЗНЗВИВИНИНИННИНИВИНИНИИИНИНИВИНИНИНИНИНИНИНИНИИНИНИНИНИННИН 
REM 
REM 
REM 
REM 


ИЗНННИНИНИНИННИНИНИНИНИНИНИНИНИННИНИННИННИННННИНИНННИННН 
# THE ROUTINE IS USED TO LOCATE A STRING OF CHARACTERS 
# WITHIN A BASIC PROGRAM. THE ROUTINE IS CALLED WITH 


# 
REM # PRINT& FOLLOWED BY THE STRING IN INVERTED COMMAS. # 
КЕН # ANY LEADING SPACES IN THE STRING WILL BE IGNORED. + 
REM # THE. NUMBER.OF THE LINE, CONTAINING THE STRING AND # 
REM # ITS LOCATION. IN MEMORY, WILL ВЕ PRINTED ON SCREEN. i 
REM. В тиИНИНИННИНИНИИНИНННИНИИИИИИИВНИИЯНИНИНИИНИЯЯЫҢНЫҢЯ ЫЗННЫҢН 
КЕН 
КЕЙ эннининнннининнннннинннннниннинннинннининнининниннниннн% 
REM # CALCULATE THE NEW TOP ОЕ HEHORY POINTER Я 
REM #ЗНННИНИНННИННННЕНИНИНИНИНИНННЕНИНННИНИНННИНИНИНИННННННЕ 
КЕН | 


NB=133: TM=( PEEK (30897 ) +PEEK (30898) *«256)-—NB 

HB-INT(TM/256) : LB=TM-HB«256 

POKE30897 , LB : POKE30898, HB 

REM 

REM ННИНННИНИИННИНННИНИННИНИННИНИНИНИНИНИННИННННИНИННННННННЯ 
REM # LOAD 7%? VECTOR WITH ТОР OF MEMORY PLUS ONE # 
КЕН Инннининининиининннининннинининннииннниининниннннннны 
REM : 

РОКЕЗ1125,1.В%1:РОКЕЗ1126,НВ 

REM 

КЕМ ӘЯЗИНИНИНИННИННИНИЯННИИНИННИНИНИННИНИНИНИНИНИИНИНИНННИНЯНЗ 
КЕН # RESET THE BASIC STACK POINTER # 
REH ФИЗЗНННИНИННИННИННИНИНИННИНИНИНИНИНИНИНИНЯИНИНИНИНИНИННИН 
КЕМ 

CLEARSO 

REM 

REM #ИНИНИНИННННИННИНИНИНИНИНИНННННИНИННИННННННЫНИНИННННННН 
REM # GET NEW TOP OF MEMORY AND MOVE TO NEXT LOCATION # 
REM ЯятЦИИННИНИНИННИНННИНИИННИИНИИНИИИИНИИИИНИИНИНИИИЯНННННЕЗЯ 
КЕМ 


 ТИ=РЕЕК (30897 ) +РЕЕК 130898) ж256 


IFTM»32TGTTHENTM-TM-65536 
REM 


- КЕМ. ЭНЗННИНИНИНННИНИНИНИНИНИНИНИННИНИННИНННННИННИННИННИНИНННҢ | ttr o d 


КЕН # LOAD 133 BYTE FIND ROUTINE | # 
REM ЯвЯЯЯИИИНҢНИННЫНИИЫЫЫЫЫЫЯИЯЯНЫНЫНЫНЫҢҒҒН 
REM 


FOR Т-170133 


READD 

РОКЕТИ+Т, р 

CS=CS+D 
NEXT | | 
REM HHHHHHHH HHH HH HE ЫЗ E HEHE HEE EFE HEF HF EE HE HH E HEHEHE HEHEHE 
REM # IF DATA CHECKSUM VERIFIES EXECUTE SET UP PROGRAM # 
REM ЭНИНИННННИНИННИНИННННИННИНИНИНИНИНЫННИНИННННННЫНИНЕННИННН 
КЕМ 

IFCS«» 13857 THENPRINT'- 
POKE 31124, 195 
REM | , 
КЕМ ЯННИНЯНЯНННЯННЕНЯНИНННЕНЯИЯНЯНЕННЯННЯНННННЯННЯНННЕЯЯНЯНННННННЯЯНУ 
REM # FIND ROUTINE DATA IN DECIMAL FORM # 
REM #HAAHHHHRHFHHRHHHHHAHAHHHHHRHERHHHHHRHHRHHHRHHRHHHHHHHHBHHH 


ERROR IN DATA ENTRY —-*:END 





ёз 


ENHANCING 


350 
355 
360 
365 
370 
375 
380 
385 
399 
395 
400 


565 
570 
575 
580 
585 
590 
595 
600 
605 
|. 619 
615 
529 


625. 


630 
635 
640 
545 
650 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


. DATA 
РАТА 


DATA 


DATA 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


DATA 
: DATA 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


DATA. 


DATA 
DATA 
DATA 
DATA 
DATA 


FIND CONT. >. s 


35 

205, 140,53 
58,214, 122 
61 
90,214,122 
183 

40,116 


221,42, 164, 120 


221, 126,9 
183 

32,6 

221, 126, 1 
183. 

40, 100 
221,110,9 
221, 102, 1 
34, 176, 121 
221,110,2 
221, 192,3 
34, 173, 121 
221,229 
225 

35 

35 

35 

35 


-34,40,122 “ 
205, 126, 43 


17,232, 121 
58,214, 122 
71 

33, 156, 122 
35 

126 

183 

40,54 

26 

183 

40,37 

19 

190 

32,236 


16,241. .  .. 


62,32 
205,58,3 
42,173,121 
205, 175, 15 
62,32 
205,58,3 
42,40, 122 
205, 175, 15 
58, 174, 122 
192,11. 
239,32 
32,8 


221,42,176,121 


24,181 
62,13 
205,58,3 
24,243 
195,25,26 


oe ее 


4. #9 


oe 


po 99 фо >ð 


46 #9 9 %9 99 4% 


49 %% #9 >b 48 e % ә #0 ọọ %6 


“4% ot 


ve © 9% 


9% о) 9% оо 99 ot 6 


ба у #9 9; 99 96 


9% 99 of 99 а 95 se #9 уу) 46 we #4 


INC HL 

CALL 358CH | 
LD A, (7AD6H) 
DEC А | 
LD (7TADGH),A 
OR A 

JR Z,74H 

LD IX, (78A4H) 
LD A, (IX+00H) 
OR A - 

JR NZ, 6H 

LD A, CIX*01H) 
OR A Е 
JR Z,64H 
LD 1, (1Х+дФн) 
LDH, (IX*01H) 
LD (79BOH),HL 
LD L,(IX402H) 
LD H,(IX403H) 
LD (794ADH),HL 
PUSH IX 

POP HL 

INC HL 

INC HL 

INC HL 

INC HL | 
LD (7A28H),HL 
CALL 2B7EH 
LD DE, 79ESH 
LD А, (7ADGH) 
LD B,A 

LD HL, ТАЭСН 
INC HL 

LD A, (HL) 

OR A 

JR Z, 36H 

LD A, (DE) 

OR A 

JR Z,25H 

INC DE 

CP (HL) 

JR NZ,ECH 


ADINZ FIH 22 л dU apetece as ttim 2 


LD A,20H 
CALL 033AH 

LD HL, (79ADH) 
CALL OFAFH 
LD A,20H - 
CALL 033AH 

LD HL,(7A28H) 
CALL OFAFH 

LD A, CTAAEH) 
ADD A, OBH 
AND 20H 

JR NZ, O6H 

LD IX, (79BOH) 
JR 97H 

LD A, ODH 
CALL ФЗЗАН 

JR ЕЗН 

JP 1A19H 


BASIC BYNOVE BY CHRIS HOBROUGH 


110 


115 


129 


130 


190 
200 


219 


220 


230 


240 


250 


260 


270 


280 


290 


300 


319 


980 


100 ТМ=РЕЕК(З 


” ЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖ 
“ж BASIC BLOCK TRANSFER DEMO BY CHRIS HOBROUGH - DEC 287 Ж 
 ЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖ 


КЕ x EA 





: 22 SPC. LL. cba: 2» AIL DE | ВИИ T 2 

CLS: IFPEEK (30797 ) =128THEN 100 

TM=PEEK ( 30897 ) +256*PEEK (30898) -28 | 

POKE30897 , TH-256XINT(TM/256) : POKE30898, INT( TM/256) 
CLEAR 100:POKE30797, 128 






0897 ) +256ЖжРЕЕК ( 30898) :OG=TM+1 
FORA-1TO28:READ B. | 
POKETM-65536-A,B:NEXT: AD=TM+26 
РОКЕТМ-65536+20, Ар-256жІМТ(Ар/256) 
POKETM-65536-*21,INT(AD/256) 


е 
ж 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 237,82 
DATA 42,71,120 
DATA 250,0,0 
DATA 237,176 
DATA | 
DATA 237,184 
DATA 


> 
» 





42,71, 120 
237,91,73, 129 
237,75, 75, 120 


D'TRNSF LD 
LD 
LD 


HL, (FROM) 
DE, (TO) 
BC, ( COUNT) 


oe 


oe о; %» 


HL,DE 
HL, (FROM) 
H,MVUP 


ee 


ae 


END 
MVUP 
END 


+ ә - = + v هه‎ ә + № е 


eo 99 we #9 ve 


за m 


990 
1000 
1019 


1920 : 


1930 
1040 
1042 
1044 
1050 


CLS: PRINT@198, “BLOCK TRANSFER DEMO" 
PRINT8260,"PLEASE WAIT 25 SECONDS" 


* nu «с 


PK-29184:FORX-9TO255 
POKEPK, 128 

РК=РК+1:МЕХТХ 
CL=143:D=1:F=1 
FORI-1TO2:FORJ-1TO4 
ЕОЕК-1704:ЕОЕХ-1Т08 
POKEPK, CL: TC=CL:CL=CL+16xD 
IFCL»2255THENCL-143E | 
IFCL« 143THENCL-255 
PK=PK+1:NEXTX 

CL=TC :D=Dx(-1) 

NEXTK :CL=CL+ 16ЖЕ 
IFCL»255THENCL-143 

NEXTJ: F=Fx(-1) 
МЕХТІ:ЕОКХ-ФТ0255 

POKEPK, 128 

PK=PK+1:NEXTX 






зи a - 


1-28672:2-512: FORI-1TO 10 
K=29 184 : GOSUB29900 
X-29440:GOSUB2000 
NEXTI:GOSUB3000 


BASIC BYMOVE CONT. . . . . . . S 


14230 ° ENSE zu m е: 
1500 CLS: PRINT896, ;: 





1520 INPUT* SOURCE ADDRESS (FROM) "3 
1549 INPUT" DESTINATION ADDRESS (TO) "зҮ 
1560 INPUT“ NUMBER OF BYTES (COUNT) "32 


1580 GOSUBZ000 : GOSUB3000 : GOSUB 1500: END 
1600 қыны ааа 





1909 

1990 vou. үү VERUM T TA Y 

2009 РОКЕЗ0791, Х- 256жІМТ(Х/256) 'FROM -- LO BYTE 

2010 POKE30792,INT(X/256) 'FROM -— HI BYTE 

2020 POKE30793, Y-256xX INT(Y/256) ^TO ---- LO BYTE 

2030 POKES3OT794,INT(Y/256) "TO ---- HI BYTE 

2040 РОКЕЗ0795,2-256ЖІМТ(2/256) "COUNT - LO BYTE 

2050 POKESO796, INT(Z/256) "COUNT - HI BYTE 

2060 POKEG0862,0G-256X*INT(OG/256) 'SET USR POINTERS - LO BYTE 
2070 POKES30863,INT(0G/256) 'SET USR POINTERS - НІ BYTE 
2080 C-USR(O) 'CALL TRNSFER ROUTINE 


2090 RETURN 


3000 PRINT@483, "PRESS «RETURN» TO CONTINUE"; 
3010 CHS=INKEYS:CHS-INKEYS 
3020 IFCHS<>CHRS( 13) ТНЕМЗФ 10ELSERETURN 


BLOCK TRANSFERS FROM BASIC by Chris HOBROUGH. :- 


Many VZ’ers who read my recent article on moving blocks of 
memory around may like to take advantage of the techniques but 
not have sufficient experience with machine language to do so. 
Weil here is a program which will allow you to set up and call a 
М/1, biock transfer routine from basic. 


The routine is the final version from the article, as it's 
the most versatile. It's 28 bytes long and sits in a protected 
area at the top of RAM. In addition, it uses 7 bytes of free 
Space in the comms region; 3 pairs of bytes which hold the 
parameters for the routine (FROM, TO & COUNT) and one which is 
used as a flag so that memory is not lowered a bit more each time 
you run the program. 


The frase section lowers the Top of Memory to make room for | 


the routine and will work for any size system. Then the routine 
itself is loaded into this safe area. 


The next section, from 100 to 1600 is for demonstration oniy 
and consists of a “flashy” intro to show what can be done and а 
user input piece Which accepts the parameters to move any block 
you Wish. Of course you will have to put something in there to 
move first and also a routine to PEEK at the results. 


Finally, there's the routine which passes the parameters for 
the move to the transfer routine and then calis it. 


You can adapt this for your oun needs by replacing 190 to 
1600 with your own program. Іс must define X (FROM), Y (TO) and Z 


EDITOR'S NOTE :- 

This program would be ideal to make up your oun HI-RES slide 
Show. Tape users could incorporate Dave Mitchell's CSAVE/CLOAD 
routine from last issue. 


DISEKLIST UPDATE BY JOE LEON 12 


| tz 
|i - КЕН FILE : 
| к - SAVE пата W - LOAD пата | 
1 18 — DIRECTORY HM — INIT DISK | 
| МЕЧО Ш-РЕЕК  B-—5AVE W-REFL |l 


ns 
SI 
4. 
Е: 
T 
а. 
a 





Some of the changes made to DISKLIST are cosmetic while 
others are more functional. As before attempt has been made to 
keep to original style and the extra functions easy to use. 


РОКЕЗФО777,1 in lines 30, 600, 1000,7000 and 400190 are POKEs that 
speed up PRINTing to the screen. 


POKES30777 , 35 in lines 645 and 1205 turn speed printing off and it 
must be done before disk access to stop interference with drive. 


Lines 49, 2010, 2020, 3250 and 3260 add COMMAND line to ENTER 
DATA and VIEW NAMES screens. Lines 2029 and 3260 only need 
PRINT@@, changed to PRINT@32, no need to retype whole lines. 


LINES 850 to 915, 5330 to 5359 and 6110 are the modified disk 
SAVE/LOAD routines providing tuo extra functions. Lines 850 to 
915 are presented uhole as some routines have been shifted around 
and line numbers have been renumbered uith some lines not being 
altered exept for line numbers 


5 - SAVE DATA - When you press "5" an UPDATE DATA FILE Y/N 
option will be presented with the cursor flashing over the "N'. 
Pressing RETURN will take you to normal SAVE. Entering ’Y’ and 
pressing RETURN will allow you after entering filename to first 
ERAse your DATA FILE and then SAVE your DATA FILE using the same 
filename. In other uords, automatic update. 


L -.LOAD DATA - When you press 'L' a MERGE DATA FILE - Y/N option 
. Will be presented with the cursor flashing over the 'N'. 
Pressing RETURN will take you to normal LOAD. Entering 'Y' and 
pressing RETURN will allow you to MERGE DATA FILES from disk with 
FILES in memory. | 


Only а few minor changes were needed to allow file merging. 
They are in lines 856, 868 and 6119. | 


0. CLEAR FILE - А clear file option has been provided. 
Previously this option was available only after SAVING a file, 
ог you had to use BREAK and RUN program again. Аз the CLEAR FILE 
Was already part of MAILING LIST it uas easy to implement. Lines 
1930, 1225, and 5330 to 5350 contain the changes. 


In the Main Menu the FILENAME is nou displayed and is the 
last change done to DISKLIST.  Exept for Disk functions, most 
modifications can aiso be incorporated in MAILING LIST. 


DISKLIST UPDATE CONT. ? 3 2 * 1 


30 POKESO777, 1: FORSC=33TO449SSTEP32 


49 OP$-" ВИТ EICROLL WELETE RINT" 


600 POKE30777,1:GOSUBSO:COLOR7:PRINTG34, "1 РЕА |"; от 
645 PRINT@354, "1 жедин 1 || ":SOUND3O, 1: POKE30777, 35 


850 PRINT@354,SP$:PRINT@380, "N" 
852 PRINT@SS4, "g üt NE ін 1 ": :SOUND30, 1: INPUTN$ 
854 N$-LEFTS$(N$,1):IFNS$«» "N"ANDN$«» "Y "THENS50 

856 IFN$-"N"THENOF-OELSEOF-DT 

858 IFN$-"Y'THENSSOELSEIFN$-"N"THENSGOELSES5O 

860 PRINT8354,SP$ 

862 PRINTS354,"JUNNZTOMCNEAdÜS E — "::SOUNDSO, 1: INPUTN®:GOSUB775 
864 PRINT@354, SP$:PRINT@450, SP$:SOUND30, 1: AD-31603:GOSUB22 

866 AD-31619:G0SUB22:AD-31646:G0SUB22:AD-31674:GOSUB22 

868 GOSUBG000 : GOSUBZ2O : DT=OF+DT: GOTO 1000 

878 

880 [ FDT<> OTHENGS4ELSEPRINT@SS3, 
882 SOUNDS, 7:GOTO645 

884 IFDN$="L"THENS6@ 

886 PRINT@354,SP$:PRINT@38®, "N" 
888 PRINT@S54, "ўша снн in 








НІН Е Bais) Я "S:S0OUND3O, 1: INPUTNS 
890 N$- LEFTS(NS, 1) : IFNS<> "N"ANDN$«» "Y" THENSSGELSEPRINT8354. SPS 
392 IFN$-"N" THENUP-OELSEUP-1 — 


894 : 

896 PRINT@SS4, "9 Ерсары нымал  "::SOUND3O, 1: INPUTNS:GOSUB775 
898 PRINTGASQO,SP$;:SOUND3O0, 1: IFUP=0THENSO6 

9090 : 


902 PRINTG354,SP$:PRINTG354, "38 
904 AD-31481:GOSUB22:GOSUB 12 
906 PRINT@SS4, SP$: AD=31533 : GOSUB22: AD=3 1549: GOSUB22 
908 AD=31576 : GOSUB22 : AD=31674 : GOSUB22 : GOTOS000 
315: 





иш] "SNS: SOUNDZO, 1 


1000 POKES@777, 1: IFDT$=""THENDT$="NO DATE" 


1020 PRINT@66, "RECORDS IN FILE "; PRINTS82, NS 
1025 PRINT@SO, USING "=###" ; DT 
1030 PRINTGSS8,HMIS:PRINTG130,"1. ENTER DATA 0. CLEAR FILE"; 


1205 РОКЕЗО777,35 
1225 IFIS$-"Q'THENIFDT-OTHEN1400ELSE5260 


2010 CLS:PRINTOP$ | 
2020 COLORS: PRINTQ32, D——— " 5 


3250 CLS:PRINTOP$ | 
3260 COLORB:PRINT832, D——^^—€——"—— '' >. 


5330 IFI$-"1"THENS3S50ELSEIFI$-"2"THENSS4OELSE5310 
5340 DT-O:ST$-z"":N$-"":DT$-"NO DATE" 

5350 IFDM$-"S"THENGOOELSE1000 

6110 FORN=OF+1TOOF+DT 

7000 POKE30777,1:GOSUB40000 : GOSUB30 : COLOR7 


40010 POKES@777, 1:CLS:COLORS, Ф 


“ 
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| On next page are changes to M/WORDS program to incorporate changing of 
pointers. Two screen dumps are shown of the MENU. First one shows changed menu 
while second shows pointer routine in action. Lines 725, 730, 825 and 928 to 
978 are the changes to M/WORDS. 


Using M/WORDS the following words were enabled :- | 
AUTO, CDBL, CINT, CSNG, DEFDBL, DEFINT, DEFSNG, DELETE, ERL, ERR, FIX, FRE, MEM, 
ON, POS, RANDOM, RESUME, STRINGS, VARPTR. 


Мо pointers had to be changed to enable above words, just inserting them in 
the right place did the trick. There are 4 more words that can be enabled as 
the routines are in ROM, but their place in the word table has been taken. 


TRON-COPY, TROFF-COLOR, DEFSTR-VERIFY, ERROR-SOUND. 


We can't disable existing words, but we can use some of the unused DISK 
WORDS from the word table. 1 placed the above 4 words in the the following 
locations in the word table. Because of compatibility I hope other VZ users 
adopt the following as the standard. 


The tables below are in the following format :- WORD ADDRESS - WORD - TOKEN 
- ROUTINE ADDRESS - POINTER ADDRESS,LO-BYTE - POINTER ADDRESS,HI-BYTE. See 
issue # 14 for complete word table. 


5856 TRON 162 7671 4246,247 5247,29 
5660 ERROR 163 8180 6248,244 6249,31 
5871 TROFF 166 7872 5254,248 6255,29 
5905 DEFSTR 768 7680 6270,0 271,30 


The word ERROR can be used two ways. ON ERROR or ERROR X. With the changes 
dane 50 far ERROR X will work, but ON ERROR will not although ON SOUND will and 
has same function as ON ERROR. The reason is that the word SOUND has replaced 
ERROR іп the word table. If you type in PRINT PEEK (8045) - иһісһ is second byte . 
of ON routine the value 158 will be displayed. 158 is the TOKEN for SOUND. To > 
get correct UN ERROR syntax is quite easy, just РОКЕВЙ45,185. You'll notice 163 
is the new TOKEN for ERROR. 


ERROR X is used to simulate an ERROR - IE :- 10 ERROR 20 
When RUN the message UNPRINTABLE ERROR will be displayed on screen. 


Besides the ӘК ВІВ RAM I also have 2K BIB ram installed at &6000H-67FFH. 
Dave Mitchell's Extended DOS lives there as well as other routines. Three of 
.them.are Larry Taylor's. modified FIND routine, Robert Quinn's PUT and BET Block 
move) routines and DOS reset. Below are the words, addresses, etc. | 


3/29 DOS i33 145 6188,145 6189,0 

58688 GET 164 26059 6250,205 5251,101 
3868 РІЛ 165 -26045 5252,189 4255,101 
3876 FIND 167 25912 6256,56 6257,101. 


DOS will work without 2K BIB RAM while others wont. Other routines can be 
put in ZK BIB RAM and unused disk words used like above to activate routines. 
Оп the next page is info on PUT, GET and FIND routines and how to place them in 
ак BIB RAM. Your memory locatione may vary, so adjust accordingly. 


The BIB RAMS are ideal for developing routines and trying them out in actual 
Operation -without having to burn ап EPROM first. When routines are ready, 
simply unplug BIB RAM and put it in your EPROM programmer /copier without losing 
any data because of built in batteries. 


1+ you nave any ideas on how to improve the VZ basic or DOS ROMS or have any 
routines that could go in 2K BIB RAM then please share with other VZ users SO we 
can all. benefit. Possible improvements - SOUND, PRINTER routines, etc. 


SK BIB RAM PART III CONT. 5 - 13 





ТЕЗ УТНС MORD- duis ROLET Е ЕНЕ ЕГШ DAE И: 
B — TEST FORE E — SAVE ROM E u | Е SAVE ROM c6 
| ig — FORE WHORES н — Lost ROM G la — FORE MORES dB = Load RON i 
| я М — WORDS PEEK lg ~ MOVE ROM М 
| là — МЕМ PEER mm — OTRECTOR': В ~ МЕМ PEEK 18 — DIRECTORY 
| 


— WORDS PEEK Шш — MOVES ROM 44 
| 
L| E — ALT POTTS B-ZnvE Ш-БЕРІ 





725 PRINT" ІШ — МЕМ PEEK #1 — DIRECTORY ":PRINT 
730 PRINT" il — ALT POINT'S H-SAVE Ш-ЕЕРІ." 


825 IFDS-'T"THEN2OOELSEIFD$-"M"THENZOQELSEIFD$-"A"THENSSOELSES800 
928 
930 PRINTG409, OPS: PRINTG385, sitit 3$ LESS 


932 SOUND3®@, 1:GOSUB2990: РТН" "THENSSOELSRADSVAL CINÉ). 


934 





[FAD< QORAD>32767THENPRINTG409, SP$:GOTOS30 


338 


940 PRINT@417, "9 |23580 


ІІ ";:S0UND3O, I: LE-5 





342 GOSUBZ29090: IFINSS""THENSdORLSEAI- -УАПГ(ІМФ):А2-А1-1 


944 


948 : 


950 


IFA1C1ORA1»32767THENPRINTG441,SP$:GOTOS940 


PRINT@448," f ME КЕ: SOUND30, 1: LE-i 





952 GOSUB2000: клн тс Ок л QNUM ус 


354 


HB-INT(AD/256): LB-AD-HBX256 


956 I[FHLS="Q"THEN 18Q@ELSEIFHLS="H" THENA1= А1- 16384:А2-41-1 


958 GOSUBS62:GOTO974 
960 : 
962 PRINT@449, "В —";USING'iHHHHEE" 5A1; :PRINT", ғ; 


964 PRINTUSING "3HHE";LB; 


966 


PRINT" шы —";USING" ######"5;A2;: PRINT", "; 


968 PRINTUSING "###";HB 





970 TORRA Ls LB: РОКЕА2, HB: RETURN 

972 | 

974 PRINT@481. АР re gg S ее fea d"; :GOSUBS15 

976 GOSUBSOS5: GOTO 180 

978 : 

10 " жжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжж 
20 °x FIND ROUTINE - 25912 TO 26044 - 6256,58 LO 6257,101 HI ж 
ao ° RRR AR KKK KKK 2K KK 2K KAKA KAKA KK KK AA KAKA KAKA KAA KKK KK KK KK KK 
40 : 

335 CLS:COLOR,@: FOR F-25912 TO 26044:READ D: POKE Е,р:МЕХТ 

340 : 

345 REM - LINES 350 TO 650 FROM BASIC FIND ROUTINE 

700 : 

750 COLOR, 1: SOUND30, 1:20, 3330, 1 

iQ ° OCICKEICICICICICICICE AOCICIOR KK KKK KK KK KK KK KK KKK KKK SK SKK SKK KKK KKK SK SKK KKK SK SKK KK 
20 "ж PUT ROUTINE - 26045 TO 26058 - 6252, 189 LO 5253, 101 HI x 
30 °ж GET ROUTINE - 26059 TO 26072 - 5250,203 LO 6251,101 HI ж 
ад ^ ЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖХЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖжЖЖЖЖЖжЖЖЖжЖЖ 
50 : | 

60 15: ЕОК Р-26045 TO 26072:READ G:POKEP,G:NEXT 


79 
ao 
|. 90 


DATA 229,33,90,112,17,0,114,1,9,2,237, 176,225,201 
DATA 229, 33,0, 114, 17, 0,112,1,0,2,237, 176,225,201 
SOUNDS®@, 1; 20, 3530,1: LIST- 40 






LPRINTER BY ROBERT QUINN . . . іл 


LPRINTER allows you to use your 92 as а typewriter, 
iprinting upper case, lower case, normal or inverse or graphic 
characters. 


Switch оп your PRINTER PLOTTER. RUN LPRINTER and a blinking 
cursor will appear on а blank screen to indicate your start 
position. Type, using any of the character keys on the keyboard 
by themseives or with SHIFT key heid down. The corresponding 
character will PRINT on the screen and LPRINT to your printer. 


LPRINTER starts up in normal upper case mode. Press CTRL key 
to shift to louer case Iprinting; press CTRL again to return to 
upper case. . 


Hoid SHIFT key and press X key to switch between normal and 
inverse printing and lprinting: inverse iprinting is 
distinguished from normal lprinting by underlining. | 


Carriage return Will operate automatically to start a new 
line when end of line is reached, though end of LPRINT 11пе--40 
Characters/line--will пої correspond with end of screen line--32 
characters/iine. Carriage return can be accomplished anytime by 
pressing RETURN key. 


Backspacing to start of LPRINTER line can be accomplished by 
holding SHIFT key and pressing B key. Every time B key is so 
pressed, the pen holder will move left one character. Screen 
cursor will backspace also. 


Cursor  Wiil blink magenta color character when 35th position 
on LPRINTER line is reached and a warning hi-lo buzz will sound, 
allowing you to decide whether you can finish the current word in 
the remainder of that line or to execute carriage return. 


Hold SHIFT and press C key then press number key (i to 4) to 
select direction of lprinting (right, left, up ог down):- 

1 key is down | 

2 key is left (lprinting is upside down) 


Р - 


3 кеу is up 
4 key is right 


^. =v Hold SHIFT and press V кеу to select change of character 
size. Now press a number key (1 to 9). The greater the number 
the larger the character size selected for. If no number key is 
pressed then size 2 smallest) is selected. 


NOTE:- the flashing color cursor at position 35 (five characters 
from end of iprint line) is designed for use with a character 
size setting of one (40 characters /line). This is the character 


size LPRINTER starts up in. 


Hold SHIFT key and -press С key twice for SCREEN COPY, 
producing a printout of the entire content of the screen, 
normal, inverse and graphics. Character size reverts to size 
one for screen copy. 28 | 


You can escape SCREEN COPY anytime by pressing SPACE bar/key. 


With LPRINTER іп memory but not RUNing, SCREEN COPY can be 
used by entering the command  GOSUB300 and pressing RETURN кеу. 


LPRINTER CONT. . . . . . . - . із 


1 *?ЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖАЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖАЖЖЖЖЖЖАЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖ 
2 '* LPRINT UPPER/LOWER CASE, GRAPHICS AND INVERSE CHARACTERS x 
3 "ж USING YOUR PRINTER/PLOTTER --- WRITTEN BY ROBERT QUINN ж 
4 ?ЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖАЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖ 
5: | | 
6 
7. 


РМ-РЕЕК(30744) 
PK-224:POKE30862,80:POKE30863,52: IFPEEK (30744) - ITHENPK-207 

10 CLS:SOUNDO,2:LPRINTCHR$(18);"S1":SS-2-2:88--12:GOSUBA5 

15 AS-INKEY$:AS-INKEYS:IFAS$«»""THENX-USR(X) :GOSUB50:GOSUBAS. 

20 IFPEEK(28875)-249THENSOUND2O, 1: P-NOTP 

21 IFPEEK(26875) -243THENV-V- 1: SOUND 15, 1 | 

22 IFV--2THENV-0: POKES30744, 1: GOSUB300 : POKE30744, PN 

23 IFPEEK (26875 )=2 19ANDV=1THENSOUND20, 1:V=2 _ 

24 IFPEEK (26875 )=2 19ANDV=OTHENSOUND2®, 1: V-1 

25 IFPEEK (26877 )=25 1THENK=NOTK : SOUND29, 1 | 

26 IFPEEK(26875)-250ANDD»OTHENGOSUB200 : GOSUB45 

27 IFC=1THENPOKEA%, ТХ 

28 IFC-10ANDD-S5THENPOKEAX,239:GO0TO30 

29 IFC-1O0THENPOKEAX,PK 

30 C=C+1: IFC=20THENC=1 

40 GOTO15 


45 AX-PEEK(30752)T256XPEEK( 30753): THo PEEK (A%):C=10: RETURN 
50 IFV-iTHENV-VAL(ÀS$):SS-—-1-V:S6-SSX6:LPRINT"S";V:VzO: RETURN 
52 IFV-ZTHENAOOELSEIPFV--i1THENV-ZO:LPRINT"Q";VAL(AS):RETURN 
55 A-ASC(L(AS):B-A:IFP--1ANDAPSG1ANDACOATHENB-DBt192 

60 1ТЕР--1АМОА>Б6ЗАНОА< 128ТНЕМВ-В+ 128 

65 IFK=-1ANDA>GSANDA< SSTHENA=A+32 

70 IFA> 127TTHENGOSUB 110: GOTOSO 

80 LPRINT"P";CHR$(A):IFA-IGTHENLPRINT"A":LPRINTCHRS (18) 
Эф 1ЕР--1АМОА< 127ANDA>SITHENLI=! 

92 IFLi-1THENL1-0:LPRINT"R";SSX65;",0":LPRINT"P";CHR$(95) 
95 IFB=1STHENPRINT" ";CHR$(8);::D--1 

100 PRINTCHRS(B3 3: D=D+1: IFD=S5ANDSS=—-2THENSOUNDS1,2;29, 1 
102 IFD-INT(SOG/(ABS(SE)X1.2) )T1THEND-1:GOSUB109 | 

195 ЕРІМЕН 


109 LPRINT"A":LPRINTCHRS(18):PRINTCHRS(13); : RETURN 
110 LPRINT"IRO,";-S5S 

120 LPRINT"J";—-358*4;",0,0,";—-356;",";99X435 ",0,9, " 36 
122 52-2жо8:53-3жо5 


122 IFA-129THENLPRINT"R";-S2;", V превес 130THENGOSUB250 


“130 IFA-iSG1THENGOSUBZS0:GOSUB250 | 

135 ІРА=1З2ТНЕМІРКІМТ "Е"; -52;", ";-53: GOSUB250 

140 IFA-iSGSGTHENLPRINT"R";—-52;",0":GOSUB250: LPRINT"R";S2;","5;-S3 
142 IFA-iIGSTHENGOSUBZSO0 | 

145 IFA-IGATHENGOSUB2S50:LPRINT"RO, ";-S3:GOSUB250 

150 IFA-13SOTHENGOSUB250: GOSUBZ50: LPRINT"R";S2;","5;-S3:GOSUBZ259 
155 IFA-1360RA-iS7THENLPRINT"R0, "5; -S3:GOSUB250 

160 ТЕА-1З7ТНЕМТРЕТНТ "КО, ";S3:GOSUB250 | 

165 IFA-1380RA-1390RA-142THENGOSUB250:LPRINT"R";S2;",";-S33 

168 IFA=138THENGOSUB259@ 

1/0 ТЕА-1ЗЭТНЕМСО5УВ259: LPRINT"RO, "353: G0SUB250 

179 ТЕА- 14ФОВА- 14 1THENLPRINT"RO, ";-S3: GOSUB250:GOSUBZ250 © 

180 [FA=141THENLPRINT"R" 5523", "S3:GOSUB25@ 

185 IFA-IAZTHENGOSUBZSO:GOSUB250 

190 IFA=143THENLPRINT"HP#" 

195 LPRINT"HR";-SSX*6;",0":RETURN | | | j 
200 SOUND190, 1: PRINT"“;CHRS(8);:LPRINT"R"3;SS*6;",0":D=D—1: RETURN 
290 DEKIN ISS  S-SOSLPRINT"S'S52;"*. O0" LPEINT"J*"5—521', $59 
260 RETURN | 


LPRINTERER CONT. ee + к + 2 m Е: 16 


300 A$-"1":V-1:GOSUB59 

305 LPRINT“A":LPRINTCHRS( 18) : D=0: FORT=28672T029 183: AZPEEK(T) 
310 [FA<S2THENLPRINT"P"CHRS(A+64) ELSEIFACG4THENLPRINT"P"CHRS(A) 
320 IFADESANDA<9S6THENLPRINT"P"CHRS(A):L1=1 

330 I FA>SSANDACK IZGTHENLPRINT"P"CHR$(A-64):L1-1 | 

335 IFLi-1THENLi1-9:LPRINT"R";SSX*6; ", O" :ІРВІМТ "Р "СНЕФ (95) 

340 IFA»127THENGOSUBS370 | | 

350 D-Dt*1:IFD-z32THEND-O:LPRINT"A":LPRINTCHRS$(18) — 

360 IFINKEYS$-" "ТНЕМТ-29184 

365 NEXT:DzO:LPRINT"A":LPRINTCHR$( 18) : RETURN 

370 IFA»143THENA-Á-16:GOTO370 

380 GOSUB110: RETURN | 

400 V-O:LPRINT"RO,";VAL(ASOX1Z2K(-SSO):PRINT" ";CHR$(8); 

410 FORJ-iITOVAL(AS):PRINTCHR$(27);:NEXT: RETURN 


M-KFEY BOARD UPDATE BY JOE LEON 9 . Е 


In last issue I described how то replace YZ Membrane 
Keyboard, also you may have read of my problems with my У2 
systen. Instead of of spending lot of time trying to trace 
problem/s I decided to upgrade my YZ 300 to No. 1 status. 


Unfortunately replacing  M/Keyboard did’nt cure all the 
problems. Some keys still required a hard (Ouch) jab to 
register. While installing the new PIEZO TRANSDUCER in the VZ as 
per article in page 5 of this issue another probiem appeared with 
the ribbon cable connecting the P.C.B. to the keyboard. 


The ribbon cables insulation parted company allowing some 
wires to touch each other. I had no choice but to replace the 
ribbon cable аз it could'nt be repaired and that is when more 
problems arose. When the ribbon cable was replaced and before 
reassemiing keyboard I decided to clean the P.C.B. using a pencil 
eraser аз someone advised me that it would work. 


Put everything together and only a few keys worked. Some 
more consultation and metho was tried with worse resuit. By now 
i Was desperate as 1 needed a reliable VZ to prepare this issue. 
More consultations followed with the correct advice received at 
long last, thanks Dave Mitchell. 


| So if you're having trouble with your keyboard with some of 

the keys not registering then don't rush out and buy a membrane 
keyboard like I did. Try cleaning your P.C.B. first as it's much 
cheaper. The magic solution is :- 


DICK SMITH SPRAY CLEANER - Cat. No. N—1501 - $3.25 


Do not spray the M/Keyboard, only the P.C.B. and wait about 
5-10 minutes for the P.C.B. to dry out before reassembling. 
Since using the cleaner on the keyboard all the keys work and 
they are very sensitive to the touch nou. 


NOTE :- Use caution when opening up the VZ as things can and do 
go wrong. The two most likely probiem areas are the keyboard 
ribbon cable and the on/off switch leads, both are brittle and 
break very easyly. 


BLOCK MOVE 8. COMPARE — D. BOYCE 47 


10 'ЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖ 
20 “Ж FAST BLOCK HOVE & COMPARE ROUTINE BY DAVE BOYCE * 
30 “ж WITH ASSISTANCE FROM DAVE MITCHELL ж 
40 *ЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖ 


100 °’ STR’S ҮҮ$,ҮТ$ 
110 °’ VAR'S HC,L,A,5B,CH, НЕ, EP, NB, L3, HS, P, EL, ЕМ, NL, NH, C,G,H,D 





130 Mercy vere rier T а 
140 FOR L=1 TO 62:READ A:POKE ИС,А:НС=НС+1:СН=СН+А :NEXT L 
150 IF CH<> 5789 THEN SOUND 2,2:PRINT:PRINT"ERROR IN РАТА": ЕКО 





160 M рад 33,0,0,17,0,0, 1,0, 0,237, 176, 193, 209, 225,201 





170 и. 33,0,0,17,0,0,1,0,0,26, 190, 32, 16, 35 
180 DATA 19,11.120,177,32,245,62,0,59,77,114 
190 DATA 193, 209, 225, 201,62, 11,50,77, 114, 193, 209, 225,201, 2 





215” MOVE FROM MF LS HS 

220 HMS-INT(MP/256):LS-HMF-(Z256XMS) 

225 > "ШЕН ASB asd LSB 

230 БОҚ; ЇЗ: РОКЕР+5, М5: РОКЕР+24, 15: POKEP+25, HS 


застарен eR ЕР EL ЕМ 
240 EM=INT(EP/256) :EL=EP~( 256XEM ) 

245 °’ "пай HSB ani LSB 

250 POKEP+10, EL: POKEP+ 11, EH: POKEP+30, EL: POKEP+31, ЕН 








SiMe NS NL NM 
260 NN=INT(NS/256) : NL=NS-(2564NM) 
265 ° "HA HSB ig LSB 


70 POKEP+7,NL:POKEP+8, NM: POKEP+27, NL: POKEP+28, NH 
2809 ыы END 





310 PRINTB4:, "FAST BLOCK MOVE" 
320 PRINTG8108,"& COMPARE" | 

325 PRINT:PRINT" USE ONLY POSITIVE NUMBERS EVEN IF ABOVE 32767" 
330 PRINT8260,"1) - BLOCKMOVE" 

349. PRINT" 2) - COMPARE" 

350 PRINT:INPUT" CHOICE ";D 

360 IF D=1 THEN CLS:GQTO 400 ° MOVE & COMPARE 


379 IF D-2 THEN 519 > COMPARE ONLY 
380 IF D<i OR Dez THEN SOUNDZ,2:GOTO 359 
390 END 


490 PRINT@41, "FAST BLOCK MOVE" 

410 PRINT" USE ONLY POSITIVE NUMBERS" 

420 PRINTG134,;:INPUT"MOVE FROM "; МЕ 

430 PRINT9192,;:INPUT"NO # OF BYTES TO MOVE "СЕР 
440 PRINTGSZO7,;:INPUT"NEW BLOCK TO С AT "Мо 
450 IF NS«34000 ,SOUND2,2:PRINTG8281, “:20Т0 
460 PRINT:INPUT" ARE THESE ENTRIES CORRECT "; 773 
470 IF ҮҮз<>"Ү" THEN RUN “CHECK ENTRIES | 


Не 
НА 
© 


aa 


BLOCK MOVE 8. COMPARE CONT. m М 15 










480 ^ "ш ЫЕ ИДЕИ semen a 
490 GOSUB 219 | 
500  POKE20862,16:POKE30863,114: XZUSR(O) 
510 PRINT:PRINT" MOVE COMPLETE" 

515 : 
520 ° "THEE IE ek Be. 

530 PRINT RUN COMPARISON ROUTINE ";YT$ 

540 IF YT$«»"Y" THEN END " ELSE RUN COMPARE H/C 

550 POKES@862, 36: POKESOS63, 114: X=USR(@) 

560 В-РЕЕК(29261) 

570 IF B-OTHEN PRINT" ALL OK":350UND12,1;9,1: END 

580 IF B=1THEN PRINT" (NEW) BLOCK DOES NOT COMPARE" 

590 PRINT" TO ORIGINAL.BLOCK":SOUND 2,4;2,15Z, 

600 END | 

619 CLS:PRINTG842," "FAST COMPARE" 

520 PRINT-INPUT" ORIGINAL MEM АТ ";MF 

S830 INPUT" BLOCK TO COMPARE AT "3NS 

640 INPUT" COMPARE NUMBER OF BYTES "ЗЕР 

650 PRINT: INPUT" ARE THESE ENTRIES CORRECT ";ҮҮ$ 

5660 IF YY$«»"Y" THEN RUN 610 'CHECK ENTRIES 

579 GOSUB 210: 60Т0550 

680 END | 

710 ° MAKE ALL ENTRIES IN DECIMAL 

720 ^ USE POSITIVE NUMBERS EVEN IF MEM ADDRESS'S ABOVE 32767 
730 ° THE BLOCK MOVE ALSO ALLOWS А COMPARE, 

740 ° WHERE THE COMPARE IS JUST А COMPARE 

750 FOR К-29299 TO 29261:PRINTK; PEEK(K) ; : NEXT: END 

тво : | 

770 ERA"FASTBHR&C" ^ LINES 779 TO 7990 ARE 

780 SAVE"PFASTBH&C" › FOR DISK DRIVE USERS 

790 STATUS:DIR: END | 











ALF DRAWN BY MATTHEW TAYLOR . 2 
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FOR SALE — EXTENDED DOS V1. @ 1 29 


EXTENDED DOS VERSION 1.0 (C) COMMANDS :- 


HERGE MERGES basic file from disk uith program in memory. 
DIRA - See example - Т: НЕМИ В: РАТСНЗ. 1 B:WORDPROC 
 B:EXTDOS E B:EXTDOS R W:DOS-INST 


LDIRA - Аз above, but to screen and printer. 
DIRB - See example - T:MENU O01 00 TAES ЗФІВ 9532 

| B:PATCHSG.1 01 OB 7200 ТТ1Е O51F 
LDIRB - Аз above, but to screen and printer. | 
STATUSA - Prints free disk space to screen on one line. 
LSTATUSA - Аз above, but to screen and printer, see below. 

534 RECORDS FREE 63.500K FREE | 

OLD - Restores а program after using the NEW command. 


OLD. - Prints START, END and LENGHT of program in memory in HEX. 
DEC XXXXX - Converts DECIMAL to НЕХ 

HEX XXXX  — Converts HEX to DECIHAL 

STATUSA and LSTATUSA also works with Version 1.9 DOS. 


The EXTENDED DOS is available in the tuo versions below :- 
EXTDOS R - T.O.M. SEEKING (SELF RELOCATING) 

EXTDOS E - FOR 2K RAM AT 6000-6'7TFF НЕХ 

Price - $10.00 each or the tuo for $15.00. Availble from :- 


Dave MITCHELL - (0798) 27 8519 
24 ELPHINSTONE STREET NORTH ROCKHAMPTON QUEENSLAND 4701 


FOR INFORMATION IN NEWCASTLE AREA :- Joe LEON - (949) 51 2756 


FOR SALE — DATABASE — DISK м TAPE 


DATA - 16k - VZ DATABASE. Enter data into records thirty 
Characters long (accepts graphic characters). Runs оп YZ 200+16k 
or Ча 3900. Available оп disk as DISK DATABASE or on tape as 
CASSETTE DATABASE. 1 


Facilities include data entry into record of choice, into 


last record chosen, next record, auto-next for fast data entry, 

edit keys so you don't have to re-enter entire content of a 
record, delete a record, delete а block of records, дар 
delete, insert, Zap insert, fast alphabetical sort of 
records--start anywhere. in records ; number sort 3; SWap.any..two ...... 
records ; page display--ten records per page ; display current 

page, next page, previous page, flip backuard and forward 
through datafile, swap any two pages, fast search of entire 


datafile for a sequence of  characters--anyWhere in records, 
hardcopy your records--especiaily suited for VZ printer plotter ; 
menu etc. | 


Disk DATA has Directory and ERASE commands, saves a datafile 
or any part thereof as а single binary file which loads back 
quickly. Cassette DATA CSAVES а datafile as a single T file--no 
slow loading of multitudes of D files! Ail instructions for 
using DATA are stored on disk and tape as datafiles--run DATA, 
load an instruction file and page through it. This program 
certainly stands out amongst the crowd of other such programs of 
it’s type. | ‚ 
PRICE - 9229.00 for DISK or CASSETTE DATABASE — Please make ail 
Cheques and Money Orders payabie to and is available from :- 
SCOTT LE BRUN © 5 CAMERON COURT WANTIRNA VIC. 3152 


For SALE — FX TENDED DOS vila TA 


EXTEMDED DOS VERSION 1.9 (С) - COPYRIGHT — DAVE MITCHELL - 1987 


MERGE - MERGES basic file from disk with program in memory. 


DIRA - See example - T:MENU В: РАТСНЗ. 1 B:WORDPROC 
B:EXTDOS Е B:EXTDOS Е W:DCOS-INST 

LDIRA - AS above, but to screen and printer. 

DIRB - See example - T:MENU 01 O00 TAES 3018 9532 
В:РАТСНЗ.1 01 OB 7200 771Е 9051F 

LDIRB - Às above, but to screen and printer. 

STATUSA - Prints free disk space to screen оп one line. 

LSTATUSA — Ас above, but to screen and printer, see belou. 

534 RECORDS FREE 63. 5090K FREE 

OLD - Restores a program after using the NEW command. 

OLD. — Prints START, END and LENGHT of program in memory іп HEX. 

DEC XXXXX - Converts DECIMAL to HEX 

HEX XXXX - Converts HEX to DECIMAL 


STATUSA and LSTATUSA also works with Version 1.9 DOS. 

The EXTENDED DOS is available in the two versions below :- - 
EXTDOS R - T.O.M. SEEKING (SELF RELOCATING) 

EXTDOS E — FOR 2K RAM AT GOOO-B7FF HEX 

Price - $190.00 sach or the two for $15.00. Availble from :- 


Dave MITCHELL - (979) 27 8519 
24 ELPHINSTONE STREET NORTH ROCKHAMPTON QUEENSLAND 4791 


FOR INFORMATION IN NEWCASTLE AREA :- Joe LEON - (949) 51 2756 


FOR Sal к — E X. F W.P FPeTCH =. i 
РАТСНЗ.1 - COPYRIGHT - HUNTER VALLEY VZ USERS’ GROUP 


This single Patch will convert your E А F TAPE WORD PROCESSOR 
LE, в 


for full DISK use while retaining all TAPE functions. [1 an be 
used with 1 or 2 DRIVES. Below are the tuo Menus. 
. EJDIT TEXT | L)OAD 
CLEAR TEXT S)AVE 
P)RINT TEXT >) ТЕ 
L)OAD FILE Е) КА 
SIAVE FILE | R)EN 
и . ... NIERIFY FILE . = INIT. € элй қыжылы ы 
Q)UIT PROGRAM 1-2) DRIVE 1 
D) ISK | M)ENU 


Fast SAYING and LOADING of ТЕХТ DATA to and from Disk is 
provided using Block SAVE or LOAD. 


Fuil instructions are supplied together with a Tape to Disk 
transfer utility for your E & F Tape Word Processor. 


This Patch will Work with V1.0 or V1.2 Disk Controller. Á 
STATUS facility has been added for V1.9 DOS owners. 


SYSTEM REQUIREMENTS :- DISK DRIVE + V1.0 OR V1.2 DOS 
VZ300 + 16K RAM PACK ОЕ 92200 + ISK (16K РАН PACK + ФК) 

The price - $10.00, NZ AUSIZ.20 and is available from :- | 
HUNTER VALLEY Уй USERS’ GROUP 

Tedd BOX 161 JESMOND 2299 

N.3. 4. AUSTRALIA Phone :(049)51 2756 


